Untitled

defaultEncoding <- "UTF8"
library(dplyr)
library(sf)
library(terra)
library(raster)
library(DT)
library(ggplot2)
library(plotly)
library(leaflet)

casos <-
  st_read(
    "/vsicurl/https://marcelocubero.github.io/capas_proyecto/casos.geojson",
    quiet = TRUE
  )
casos <-
  casos %>%
  st_transform(4326)

casos_ <-
    read.csv( file= "https://marcelocubero.github.io/capas_proyecto/casos_.csv",
              sep = ",", encoding = "UTF-8") 


fallecidos <- rast("/vsicurl/https://marcelocubero.github.io/capas_proyecto/fallecidos.tif")

fallecidos_rl <- raster::raster(fallecidos)


leaflet() %>%
  addTiles() %>%
  addRasterImage(
    fallecidos_rl, 
    opacity = 0.6
  ) %>%    
  addPolygons(
    data = casos,
    color = "black",
    fillColor = "transparent",
    stroke = TRUE,
    weight = 1.0,
  )

casos_ %>%
  select(Cantón= canton,Provincia= provincia, Casos_Activos= activos, Casos_Positivos= positivos) %>%
datatable( casos_, options = list(
  language = list(url = '//cdn.datatables.net/plug-ins/1.10.11/i18n/Spanish.json'),
  pageLength = 5
))

ggplot(casos_, aes(x= canton, y= positivos)) + geom_col() %>%
  config(locale = "es")